object Form1: TForm1
  Left = 341
  Top = 237
  Width = 783
  Height = 540
  Caption = 'Lan Gerenciador V2.2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object fichas: TPageControl
    Left = 0
    Top = 0
    Width = 775
    Height = 513
    ActivePage = Computadores
    Align = alClient
    TabOrder = 0
    object Clientes: TTabSheet
      Caption = 'Clientes'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 400
        Height = 485
        Align = alLeft
        TabOrder = 0
        object Label1: TLabel
          Left = 51
          Top = 34
          Width = 36
          Height = 13
          Caption = 'C'#243'digo:'
        end
        object Label2: TLabel
          Left = 49
          Top = 61
          Width = 38
          Height = 13
          Caption = 'Apelido:'
        end
        object Label3: TLabel
          Left = 54
          Top = 85
          Width = 31
          Height = 13
          Caption = 'Nome:'
        end
        object Label4: TLabel
          Left = 36
          Top = 109
          Width = 49
          Height = 13
          Caption = 'Endere'#231'o:'
        end
        object Label5: TLabel
          Left = 48
          Top = 136
          Width = 36
          Height = 13
          Caption = 'Cidade:'
        end
        object Label6: TLabel
          Left = 255
          Top = 135
          Width = 36
          Height = 13
          Caption = 'Estado:'
        end
        object Label7: TLabel
          Left = 40
          Top = 160
          Width = 45
          Height = 13
          Caption = 'Telefone:'
        end
        object labelsenha: TLabel
          Left = 210
          Top = 160
          Width = 34
          Height = 13
          Caption = 'Senha:'
        end
        object Label8: TLabel
          Left = 25
          Top = 185
          Width = 59
          Height = 13
          Caption = 'Nascimento:'
        end
        object Label9: TLabel
          Left = 55
          Top = 210
          Width = 28
          Height = 13
          Caption = 'Email:'
        end
        object Label10: TLabel
          Left = 55
          Top = 235
          Width = 25
          Height = 13
          Caption = 'Obs.:'
        end
        object Label11: TLabel
          Left = 85
          Top = 295
          Width = 36
          Height = 13
          Caption = 'Cr'#233'dito:'
        end
        object credito: TLabel
          Left = 151
          Top = 295
          Width = 5
          Height = 13
          Alignment = taRightJustify
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object labelTarifacao: TLabel
          Left = 235
          Top = 295
          Width = 48
          Height = 13
          Caption = 'Tarifa'#231#227'o:'
          OnDblClick = labelTarifacaoDblClick
        end
        object tarifacao: TLabel
          Left = 313
          Top = 295
          Width = 5
          Height = 13
          Alignment = taRightJustify
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label16: TLabel
          Left = 160
          Top = 295
          Width = 36
          Height = 13
          Caption = 'Tempo:'
        end
        object tempo: TLabel
          Left = 200
          Top = 295
          Width = 5
          Height = 13
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object labelTarifa_atual: TLabel
          Left = 270
          Top = 450
          Width = 56
          Height = 13
          Caption = 'Tarifa atual:'
          OnDblClick = labelTarifa_atualDblClick
        end
        object tarifacao_atual: TLabel
          Left = 330
          Top = 450
          Width = 26
          Height = 13
          Caption = '2,00'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object labelOperador_autla: TLabel
          Left = 55
          Top = 450
          Width = 73
          Height = 13
          Caption = 'Operador atual:'
          OnDblClick = labelOperador_autlaDblClick
        end
        object labelOperador: TLabel
          Left = 135
          Top = 450
          Width = 5
          Height = 13
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label21: TLabel
          Left = 117
          Top = 330
          Width = 72
          Height = 13
          Caption = 'Saldo devedor:'
        end
        object deve: TLabel
          Left = 200
          Top = 330
          Width = 21
          Height = 13
          Caption = '0,00'
        end
        object status_cliente: TLabel
          Left = 210
          Top = 185
          Width = 64
          Height = 13
          Caption = 'Status: offline'
        end
        object codigo: TEdit
          Left = 90
          Top = 30
          Width = 40
          Height = 21
          TabOrder = 1
          OnClick = codigoClick
          OnKeyPress = codigoKeyPress
          OnKeyUp = codigoKeyUp
        end
        object btCarrega: TButton
          Left = 134
          Top = 30
          Width = 62
          Height = 21
          Caption = 'Carrega'
          TabOrder = 0
          OnClick = btCarregaClick
        end
        object apelido: TEdit
          Left = 90
          Top = 55
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object nome: TEdit
          Left = 90
          Top = 80
          Width = 241
          Height = 21
          TabOrder = 3
        end
        object endereco: TEdit
          Left = 90
          Top = 105
          Width = 241
          Height = 21
          TabOrder = 4
        end
        object cidade: TEdit
          Left = 90
          Top = 130
          Width = 156
          Height = 21
          TabOrder = 5
        end
        object estado: TEdit
          Left = 300
          Top = 130
          Width = 31
          Height = 21
          TabOrder = 6
        end
        object telefone: TEdit
          Left = 90
          Top = 155
          Width = 111
          Height = 21
          TabOrder = 7
          OnExit = telefoneExit
        end
        object senha: TEdit
          Left = 250
          Top = 155
          Width = 81
          Height = 21
          TabOrder = 8
        end
        object nascimento: TEdit
          Left = 90
          Top = 180
          Width = 111
          Height = 21
          TabOrder = 9
        end
        object email: TEdit
          Left = 90
          Top = 205
          Width = 241
          Height = 21
          TabOrder = 10
        end
        object obs: TMemo
          Left = 90
          Top = 230
          Width = 241
          Height = 56
          TabOrder = 11
        end
        object btNovo: TButton
          Left = 265
          Top = 30
          Width = 61
          Height = 21
          Caption = 'Novo'
          TabOrder = 12
          OnClick = btNovoClick
        end
        object btSalva: TButton
          Left = 200
          Top = 30
          Width = 61
          Height = 21
          Caption = 'Salva'
          Enabled = False
          TabOrder = 13
          OnClick = btSalvaClick
        end
        object TPanel
          Left = 55
          Top = 355
          Width = 301
          Height = 81
          TabOrder = 14
          object Label14: TLabel
            Left = 20
            Top = 20
            Width = 84
            Height = 13
            Caption = 'Adiciona dinheiro:'
          end
          object Label15: TLabel
            Left = 25
            Top = 50
            Width = 76
            Height = 13
            Caption = 'Adiciona tempo:'
          end
          object adiciona_dinheiro: TEdit
            Left = 110
            Top = 15
            Width = 66
            Height = 21
            TabOrder = 0
            Text = '0,00'
            OnKeyUp = adiciona_dinheiroKeyUp
          end
          object adiciona_tempo: TEdit
            Left = 110
            Top = 45
            Width = 66
            Height = 21
            TabOrder = 1
            Text = '0'
          end
          object btAdiciona: TButton
            Left = 200
            Top = 15
            Width = 75
            Height = 51
            Caption = 'Adiciona'
            Enabled = False
            TabOrder = 2
            OnClick = btAdicionaClick
          end
        end
        object pospago: TCheckBox
          Left = 241
          Top = 57
          Width = 69
          Height = 17
          Caption = 'P'#243's-pago'
          Enabled = False
          TabOrder = 15
          OnKeyUp = pospagoKeyUp
          OnMouseUp = pospagoMouseUp
        end
        object bt_pagar: TButton
          Left = 230
          Top = 325
          Width = 46
          Height = 25
          Caption = 'Pagar'
          Enabled = False
          TabOrder = 16
          OnClick = bt_pagarClick
        end
      end
      object pagina_cliente: TPageControl
        Left = 400
        Top = 0
        Width = 367
        Height = 485
        ActivePage = cliente_produtos
        Align = alClient
        MultiLine = True
        TabOrder = 1
        OnChange = pagina_clienteChange
        object cliente_procura: TTabSheet
          Caption = 'Procura'
          object painel_procurar: TPanel
            Left = 0
            Top = 0
            Width = 359
            Height = 50
            Align = alTop
            TabOrder = 1
            object procurar: TEdit
              Left = 5
              Top = 15
              Width = 266
              Height = 21
              TabOrder = 1
              OnKeyDown = procurarKeyDown
            end
            object btProcurar: TButton
              Left = 276
              Top = 15
              Width = 75
              Height = 21
              Caption = 'Procurar'
              TabOrder = 0
              OnClick = btProcurarClick
            end
          end
          object resultados: TStringGrid
            Left = 0
            Top = 50
            Width = 359
            Height = 407
            Align = alClient
            ColCount = 4
            DefaultRowHeight = 18
            FixedCols = 0
            FixedRows = 0
            TabOrder = 0
            OnDblClick = resultadosDblClick
          end
        end
        object cliente_atividade: TTabSheet
          Caption = 'Atividade'
          Enabled = False
          ImageIndex = 1
          object atividade: TStringGrid
            Left = 0
            Top = 0
            Width = 359
            Height = 457
            Align = alClient
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
            TabOrder = 0
          end
        end
        object cliente_extrato: TTabSheet
          Caption = 'Extrato'
          Enabled = False
          ImageIndex = 2
          object extrato: TStringGrid
            Left = 0
            Top = 0
            Width = 359
            Height = 457
            Align = alClient
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
            TabOrder = 0
          end
        end
        object cliente_produtos: TTabSheet
          Caption = 'Produtos'
          ImageIndex = 3
          object GroupBox3: TGroupBox
            Left = 0
            Top = 0
            Width = 359
            Height = 105
            Align = alTop
            Caption = 'Vender'
            TabOrder = 0
            object Label22: TLabel
              Left = 30
              Top = 47
              Width = 40
              Height = 13
              Caption = 'Produto:'
            end
            object Label23: TLabel
              Left = 13
              Top = 75
              Width = 58
              Height = 13
              Caption = 'Quantidade:'
            end
            object combo_produto: TComboBox
              Left = 81
              Top = 44
              Width = 145
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              TabOrder = 0
            end
            object UpDown1: TUpDown
              Left = 107
              Top = 70
              Width = 15
              Height = 21
              Associate = quantidade_produto
              Min = 1
              Position = 1
              TabOrder = 1
            end
            object quantidade_produto: TEdit
              Left = 81
              Top = 70
              Width = 26
              Height = 21
              ReadOnly = True
              TabOrder = 2
              Text = '1'
            end
            object radio_cliente_sim: TRadioButton
              Left = 45
              Top = 20
              Width = 86
              Height = 17
              Caption = 'Cliente [0000]'
              Enabled = False
              TabOrder = 3
            end
            object radio_cliente_nao: TRadioButton
              Left = 150
              Top = 20
              Width = 81
              Height = 17
              Caption = 'N'#227'o cliente'
              Checked = True
              TabOrder = 4
              TabStop = True
            end
            object bt_vender: TButton
              Left = 235
              Top = 45
              Width = 75
              Height = 21
              Caption = 'Vender'
              TabOrder = 5
              OnClick = bt_venderClick
            end
          end
          object GroupBox4: TGroupBox
            Left = 0
            Top = 105
            Width = 359
            Height = 352
            Align = alClient
            Caption = 'Estoque:'
            TabOrder = 1
            object estoque: TStringGrid
              Left = 2
              Top = 15
              Width = 355
              Height = 335
              Align = alClient
              Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
              TabOrder = 0
              OnMouseUp = estoqueMouseUp
            end
          end
        end
      end
    end
    object Computadores: TTabSheet
      Caption = 'Computadores'
      ImageIndex = 1
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 767
        Height = 86
        Align = alTop
        TabOrder = 0
        object btEsperaOFF: TButton
          Left = 9
          Top = 10
          Width = 75
          Height = 22
          Caption = 'Espera OFF'
          TabOrder = 0
          OnClick = btEsperaOFFClick
        end
        object btDesligar: TButton
          Left = 89
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Desligar'
          TabOrder = 1
          OnClick = btDesligarClick
        end
        object btReiniciar: TButton
          Left = 169
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Reiniciar'
          TabOrder = 2
          OnClick = btReiniciarClick
        end
        object btIniciar: TButton
          Left = 249
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Iniciar'
          TabOrder = 3
          OnClick = btIniciarClick
        end
        object btFechar: TButton
          Left = 329
          Top = 7
          Width = 75
          Height = 25
          Caption = 'Fechar'
          TabOrder = 4
          OnClick = btFecharClick
        end
        object btMensagem: TButton
          Left = 9
          Top = 41
          Width = 75
          Height = 25
          Caption = 'Mensagem'
          TabOrder = 5
          OnClick = btMensagemClick
        end
        object btExecutar: TButton
          Left = 89
          Top = 41
          Width = 75
          Height = 25
          Caption = 'Executar'
          TabOrder = 6
          OnClick = btExecutarClick
        end
        object btSenhas: TButton
          Left = 169
          Top = 41
          Width = 75
          Height = 25
          Caption = 'Senhas'
          TabOrder = 7
          OnClick = btSenhasClick
        end
        object bt_desligar_todos: TButton
          Left = 251
          Top = 41
          Width = 75
          Height = 25
          Caption = 'Desligar todos'
          TabOrder = 8
          OnClick = bt_desligar_todosClick
        end
        object bt_destravar: TButton
          Left = 330
          Top = 41
          Width = 75
          Height = 25
          Caption = 'Destravar'
          TabOrder = 9
          OnClick = bt_destravarClick
        end
      end
      object lista_cpus: TStringGrid
        Left = 0
        Top = 86
        Width = 767
        Height = 399
        Align = alClient
        DefaultRowHeight = 18
        TabOrder = 1
        OnClick = lista_cpusClick
        OnDblClick = lista_cpusDblClick
        OnDrawCell = lista_cpusDrawCell
      end
    end
    object Config: TTabSheet
      Caption = 'Configura'#231#245'es'
      ImageIndex = 2
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 341
        Height = 485
        Align = alLeft
        TabOrder = 0
        object img_fundo: TLabel
          Left = 100
          Top = 12
          Width = 59
          Height = 13
          Caption = 'img_fundo'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = img_fundoClick
        end
        object numero_cpus: TLabel
          Left = 140
          Top = 32
          Width = 15
          Height = 13
          Caption = '30'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object label_numero_computadores: TLabel
          Left = 10
          Top = 32
          Width = 125
          Height = 13
          Caption = 'N'#250'mero de computadores:'
          OnDblClick = label_numero_computadoresDblClick
        end
        object Label18: TLabel
          Left = 10
          Top = 12
          Width = 85
          Height = 13
          Caption = 'Imagem de fundo:'
        end
        object GroupBox1: TGroupBox
          Left = 11
          Top = 49
          Width = 311
          Height = 136
          Caption = 'Mudar senha:'
          TabOrder = 0
          object Label12: TLabel
            Left = 94
            Top = 25
            Width = 60
            Height = 13
            Caption = 'Senha atual:'
          end
          object Label13: TLabel
            Left = 94
            Top = 50
            Width = 61
            Height = 13
            Caption = 'Nova senha:'
          end
          object Label17: TLabel
            Left = 44
            Top = 75
            Width = 110
            Height = 13
            Caption = 'Redigite a nova senha:'
          end
          object mudar_senha_atual: TEdit
            Left = 159
            Top = 20
            Width = 121
            Height = 21
            PasswordChar = '*'
            TabOrder = 0
          end
          object mudar_senha_nova: TEdit
            Left = 159
            Top = 45
            Width = 121
            Height = 21
            PasswordChar = '*'
            TabOrder = 1
          end
          object mudar_senha_nova2: TEdit
            Left = 159
            Top = 70
            Width = 121
            Height = 21
            PasswordChar = '*'
            TabOrder = 2
          end
          object btOK_mudar_senha: TButton
            Left = 159
            Top = 100
            Width = 121
            Height = 21
            Caption = 'OK'
            TabOrder = 3
            OnClick = btOK_mudar_senhaClick
          end
        end
        object GroupBox2: TGroupBox
          Left = 11
          Top = 189
          Width = 311
          Height = 116
          Caption = 'Criar novo operador:'
          TabOrder = 1
          object Label19: TLabel
            Left = 70
            Top = 30
            Width = 31
            Height = 13
            Caption = 'Nome:'
          end
          object Label20: TLabel
            Left = 65
            Top = 60
            Width = 34
            Height = 13
            Caption = 'Senha:'
          end
          object novo_operador_nome: TEdit
            Left = 105
            Top = 25
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object novo_operador_senha: TEdit
            Left = 105
            Top = 55
            Width = 121
            Height = 21
            TabOrder = 1
          end
          object btOK_novo_operador: TButton
            Left = 105
            Top = 85
            Width = 121
            Height = 21
            Caption = 'OK'
            TabOrder = 2
            OnClick = btOK_novo_operadorClick
          end
        end
        object bt_fecha_caixa: TButton
          Left = 11
          Top = 310
          Width = 75
          Height = 25
          Caption = 'Fechar caixa'
          TabOrder = 2
          OnClick = bt_fecha_caixaClick
        end
      end
      object Panel6: TPanel
        Left = 341
        Top = 0
        Width = 426
        Height = 485
        Align = alClient
        TabOrder = 1
        object Panel7: TPanel
          Left = 1
          Top = 1
          Width = 424
          Height = 80
          Align = alTop
          TabOrder = 0
          object radioMostrar_todo_log: TRadioButton
            Left = 15
            Top = 10
            Width = 113
            Height = 17
            Caption = 'Mostrar log do dia'
            TabOrder = 0
          end
          object btOK_relatorio: TButton
            Left = 335
            Top = 10
            Width = 75
            Height = 16
            Caption = 'OK'
            TabOrder = 1
            OnClick = btOK_relatorioClick
          end
          object radioMovimento_dia: TRadioButton
            Left = 15
            Top = 30
            Width = 113
            Height = 17
            Caption = 'Movimento do dia'
            TabOrder = 2
          end
          object radio_executar_sql: TRadioButton
            Left = 15
            Top = 50
            Width = 91
            Height = 17
            Caption = 'Executar SQL'
            TabOrder = 3
            OnClick = radio_executar_sqlClick
          end
          object edit_sql: TEdit
            Left = 120
            Top = 45
            Width = 216
            Height = 21
            TabOrder = 4
          end
          object ckResposta: TCheckBox
            Left = 345
            Top = 50
            Width = 67
            Height = 17
            Caption = 'Resposta'
            TabOrder = 5
          end
        end
        object relatorio: TStringGrid
          Left = 1
          Top = 81
          Width = 424
          Height = 403
          Align = alClient
          DefaultRowHeight = 18
          FixedCols = 0
          FixedRows = 0
          TabOrder = 1
          OnDblClick = relatorioDblClick
        end
      end
    end
  end
  object consulta: TQuery
    Left = 475
    Top = 394
  end
  object socket_l: TWSocket
    LineMode = False
    LineLimit = 65536
    LineEnd = #13#10
    LineEcho = False
    LineEdit = False
    Proto = 'tcp'
    LocalAddr = '0.0.0.0'
    LocalPort = '0'
    MultiThreaded = False
    MultiCast = False
    MultiCastIpTTL = 1
    ReuseAddr = False
    ComponentOptions = []
    OnDataAvailable = socket_lDataAvailable
    FlushTimeout = 60
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 0
    SocksLevel = '5'
    SocksAuthentication = socksNoAuthentication
    Left = 474
    Top = 361
  end
  object socket_s: TWSocket
    LineMode = False
    LineLimit = 65536
    LineEnd = #13#10
    LineEcho = False
    LineEdit = False
    Proto = 'tcp'
    LocalAddr = '0.0.0.0'
    LocalPort = '0'
    MultiThreaded = False
    MultiCast = False
    MultiCastIpTTL = 1
    ReuseAddr = False
    ComponentOptions = []
    FlushTimeout = 60
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 0
    SocksLevel = '5'
    SocksAuthentication = socksNoAuthentication
    Left = 504
    Top = 361
  end
  object timeout: TTimer
    Interval = 15000
    OnTimer = timeoutTimer
    Left = 535
    Top = 361
  end
  object log: TQuery
    Left = 508
    Top = 396
  end
  object popup_estoque: TPopupMenu
    Left = 479
    Top = 429
    object ReporestoquedePRODUTO1: TMenuItem
      Caption = 'Repor estoque de PRODUTO'
      OnClick = ReporestoquedePRODUTO1Click
    end
    object MudaropreodePRODUTO1: TMenuItem
      Caption = 'Mudar o pre'#231'o de PRODUTO'
      OnClick = MudaropreodePRODUTO1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Adicionarnovoproduto1: TMenuItem
      Caption = 'Adicionar novo produto'
      OnClick = Adicionarnovoproduto1Click
    end
  end
end
